home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Essentials / MPW IIGS Interfaces / PIIGSIncludes / TextTool.p < prev    next >
Encoding:
Text File  |  1990-04-03  |  3.3 KB  |  96 lines  |  [TEXT/MPS ]
  1. {********************************************
  2. ; File: TextTool.p
  3. ;
  4. ;
  5. ; Copyright Apple Computer, Inc. 1986-90
  6. ; All Rights Reserved
  7. ;
  8. ********************************************}
  9.  
  10. UNIT TEXTTOOL;
  11. INTERFACE
  12. USES TYPES;
  13. CONST
  14.  
  15. { Error Codes }
  16. badDevType = $0C01;  { not implemented }
  17. badDevNum = $0C02;  { Illegal device number. }
  18. badMode = $0C03;  { Bad mode: illegal operation. }
  19. unDefHW = $0C04;  { Undefined hardware error }
  20. lostDev = $0C05;  { Lost device: Device no longer on line }
  21. lostFile = $0C06;  { File no longer in diskette directory }
  22. badTitle = $0C07;  { Illegal Filename }
  23. noRoom = $0C08;  { Insufficient space on specified diskette }
  24. noDevice = $0C09;  { Volume not online }
  25. noFile = $0C0A;  { File not in specifiled directory }
  26. dupFile = $0C0B;  { Filename already exists }
  27. notClosed = $0C0C;  { Attempt to open an open file }
  28. notOpen = $0C0D;  { Attempt to close closed file }
  29. badFormat = $0C0E;  { error reading real or integer }
  30. ringBuffOFlo = $0C0F;  { Chars arriving too fast }
  31. writeProtected = $0C10;
  32. devErr = $0C40;  { Read or Write failed }
  33.  
  34. { deviceNum Codes }
  35. input = $0000;
  36. output = $0001;
  37. errorOutput = $0002;
  38.  
  39. { deviceType Codes }
  40. basicType = $0000;
  41. pascalType = $0001;
  42. ramBased = $0002;
  43.  
  44. { echoFlag Codes }
  45. noEcho = $0000;
  46. echo = $0001;
  47. TYPE
  48. DeviceRecHndl = ^DeviceRecPtr;
  49. DeviceRecPtr = ^DeviceRec;
  50. DeviceRec = RECORD
  51.     ptrOrSlot : Longint; { slot number or jump table ptr }
  52.     deviceType : Integer; { type of input device }
  53. END;
  54. TxtMaskRecHndl = ^TxtMaskRecPtr;
  55. TxtMaskRecPtr = ^TxtMaskRec;
  56. TxtMaskRec = RECORD
  57.     orMask : Integer;
  58.     andMask : Integer;
  59. END;
  60. PROCEDURE CtlTextDev ( deviceNum:Integer; controlCode:Integer)  ;
  61. PROCEDURE ErrWriteBlock ( textPtr:Ptr; offset:Integer; count:Integer)  ;
  62. PROCEDURE ErrWriteChar ( theChar:Integer)  ;
  63. PROCEDURE ErrWriteCString ( cStrPtr:CStringPtr)  ;
  64. PROCEDURE ErrWriteLine ( str:Str255)  ;
  65. PROCEDURE ErrWriteString ( str:Str255)  ;
  66. FUNCTION GetErrGlobals  : TxtMaskRec ;
  67. FUNCTION GetErrorDevice  : DeviceRec ;
  68. FUNCTION GetInGlobals  : TxtMaskRec ;
  69. FUNCTION GetInputDevice  : DeviceRec ;
  70. FUNCTION GetOutGlobals  : TxtMaskRec ;
  71. FUNCTION GetOutputDevice  : DeviceRec ;
  72. PROCEDURE InitTextDev ( deviceNum:Integer)  ;
  73. FUNCTION ReadChar ( echoFlag:Integer) : Integer ;
  74. FUNCTION ReadLine ( bufferPtr:Ptr; maxCount:Integer; eolChar:Integer; echoFlag:Integer) : Integer ;
  75. PROCEDURE SetErrGlobals ( andMask:Integer; orMask:Integer)  ;
  76. PROCEDURE SetErrorDevice ( deviceType:Integer; ptrOrSlot:Longint)  ;
  77. PROCEDURE SetInGlobals ( andMask:Integer; orMask:Integer)  ;
  78. PROCEDURE SetInputDevice ( deviceType:Integer; ptrOrSlot:Longint)  ;
  79. PROCEDURE SetOutGlobals ( andMask:Integer; orMask:Integer)  ;
  80. PROCEDURE SetOutputDevice ( deviceType:Integer; ptrOrSlot:Longint)  ;
  81. PROCEDURE StatusTextDev ( deviceNum:Integer; requestCode:Integer)  ;
  82. PROCEDURE TextBootInit   ;
  83. PROCEDURE TextReadBlock ( bufferPtr:Ptr; offset:Integer; blockSize:Integer; echoFlag:Integer)  ;
  84. PROCEDURE TextReset   ;
  85. PROCEDURE TextShutDown   ;
  86. PROCEDURE TextStartUp   ;
  87. FUNCTION TextStatus  : Boolean ;
  88. FUNCTION TextVersion  : Integer ;
  89. PROCEDURE TextWriteBlock ( textPtr:Ptr; offset:Integer; count:Integer)  ;
  90. PROCEDURE WriteChar ( theChar:Integer)  ;
  91. PROCEDURE WriteCString ( cStrPtr:CStringPtr)  ;
  92. PROCEDURE WriteLine ( str:Str255)  ;
  93. PROCEDURE WriteString ( str:Str255)  ;
  94. IMPLEMENTATION
  95. END.
  96.